home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pct3661.arc / FIX365.MRG < prev    next >
Encoding:
Text File  |  1986-04-25  |  1.1 KB  |  24 lines
  1.  
  2. 3247 ' COMM$=COMMPORT$+BAU$+","+PAR$+","+DTA$+","+STP$+COMMINIT$:CLOSE#1:OPEN          COMM$ AS #1:RETURN
  3. 3248 gosub 40000:return
  4. 4512 'CLOSE #1:OPEN COMMPORT$+BAU$+",N,8,1"+COMMINIT$ AS #1  'original code
  5. 4513 opar$=par$:odta$=dta$:par$="N":dta$="8":gosub 40000:par$=opar$:dta$=odta$
  6. 4635 PRINT"***End of File - verified":PRINT#1,ACK$;:gosub 40000:GOTO 3010
  7. 4640 PRINT"***Cancelled by Transmitter":gosub 40000:GOTO 3010
  8. 4645 PRINT"***Cancelled by Receiver":PRINT#1,CAN$;:GOSUB 4975:gosub 40000:GOTO 3010
  9. 4712 'CLOSE #1:OPEN COMMPORT$+BAU$+",N,8,1"+COMMINIT$ AS #1  'original code
  10. 4713 opar$=par$:odta$=dta$:par$="N":dta$="8":gosub 40000:par$=opar$:dta$=odta$
  11. 40000 ' reset parity and number of data bits on the fly ******************
  12. 40100 IF PAR$="N" AND DTA$="7" THEN NEWPD=2
  13. 40200 IF PAR$="E" AND DTA$="7" THEN NEWPD=26
  14. 40300 IF PAR$="O" AND DTA$="7" THEN NEWPD=10
  15. 40400 IF PAR$="M" AND DTA$="7" THEN NEWPD=42
  16. 40500 IF DTA$="8" THEN NEWPD=3
  17. 40600 OUT LCR,NEWPD
  18. 40700 RETURN
  19. END OF TRANSFER - PRESS ENTER TO RETURN TO MENU
  20. EWPD=42
  21. 40500 IF DTA$="8" THEN NEWPD=3
  22. 40600 OUT LCR,NEWPD
  23. 40700 RETURN
  24. END OF TRANSFER - PRESS ENT